home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1995-09-27 | 814 b |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
| 66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
| 1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
| 1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
| 1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
| 1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2a 03 00 00 0d 0a 27 20 | 53 68 61 64 65 0d 0a 27 |*.....' |Shade..'|
|00000010| 20 43 72 65 61 74 65 20 | 61 20 32 20 70 69 78 65 | Create |a 2 pixe|
|00000020| 6c 20 73 68 61 64 65 20 | 6f 6e 20 78 2b 20 79 2d |l shade |on x+ y-|
|00000030| 0d 0a 20 0d 0a 27 20 49 | 6e 70 75 74 3a 09 31 0d |.. ..' I|nput:.1.|
|00000040| 0a 27 20 4f 75 74 70 75 | 74 3a 09 34 0d 0a 0d 0a |.' Outpu|t:.4....|
|00000050| 27 20 41 75 74 68 6f 72 | 3a 09 41 6e 64 72 65 61 |' Author|:.Andrea|
|00000060| 20 42 65 6e 6f 6e 69 09 | 09 09 20 72 65 76 3a 09 | Benoni.|.. rev:.|
|00000070| 31 2e 31 0d 0a 0d 0a 0d | 0a 73 74 72 69 6e 67 20 |1.1.....|.string |
|00000080| 20 20 20 09 69 6e 70 46 | 69 6c 65 2c 6f 75 74 46 | .inpF|ile,outF|
|00000090| 69 6c 65 0d 0a 44 65 76 | 43 6f 6e 09 49 62 6d 70 |ile..Dev|Con.Ibmp|
|000000a0| 2c 4f 62 6d 70 0d 0a 52 | 47 42 09 70 69 78 0d 0a |,Obmp..R|GB.pix..|
|000000b0| 66 6c 6f 61 74 20 20 09 | 78 2c 79 2c 70 0d 0a 0d |float .|x,y,p...|
|000000c0| 0a 69 6e 70 46 69 6c 65 | 3d 22 54 65 73 74 69 62 |.inpFile|="Testib|
|000000d0| 6e 2e 62 6d 70 22 0d 0a | 6f 75 74 46 69 6c 65 3d |n.bmp"..|outFile=|
|000000e0| 22 54 65 73 74 6f 2e 62 | 6d 70 22 0d 0a 0d 0a 49 |"Testo.b|mp"....I|
|000000f0| 62 6d 70 3d 4c 6f 61 64 | 49 6d 61 67 65 28 69 6e |bmp=Load|Image(in|
|00000100| 70 46 69 6c 65 29 0d 0a | 4f 62 6d 70 3d 43 72 65 |pFile)..|Obmp=Cre|
|00000110| 61 74 65 49 6d 61 67 65 | 28 49 62 6d 70 2e 57 69 |ateImage|(Ibmp.Wi|
|00000120| 64 74 68 2c 49 62 6d 70 | 2e 48 65 69 67 68 74 2c |dth,Ibmp|.Height,|
|00000130| 34 29 0d 0a 0d 0a 70 69 | 78 2e 4c 75 6d 3d 31 39 |4)....pi|x.Lum=19|
|00000140| 32 0d 0a 53 65 74 50 61 | 6c 65 74 74 65 28 4f 62 |2..SetPa|lette(Ob|
|00000150| 6d 70 2c 31 2c 70 69 78 | 29 0d 0a 70 69 78 2e 4c |mp,1,pix|)..pix.L|
|00000160| 75 6d 3d 32 35 35 0d 0a | 53 65 74 50 61 6c 65 74 |um=255..|SetPalet|
|00000170| 74 65 28 4f 62 6d 70 2c | 32 2c 70 69 78 29 0d 0a |te(Obmp,|2,pix)..|
|00000180| 0d 0a 46 6f 72 20 79 3d | 30 20 74 6f 20 4f 62 6d |..For y=|0 to Obm|
|00000190| 70 2e 48 65 69 67 68 74 | 2d 31 0d 0a 20 20 20 44 |p.Height|-1.. D|
|000001a0| 73 70 57 68 69 6c 65 28 | 22 53 68 61 64 69 6e 67 |spWhile(|"Shading|
|000001b0| 22 2c 31 30 30 2f 4f 62 | 6d 70 2e 48 65 69 67 68 |",100/Ob|mp.Heigh|
|000001c0| 74 2a 79 29 0d 0a 20 20 | 20 46 6f 72 20 78 3d 30 |t*y).. | For x=0|
|000001d0| 20 74 6f 20 4f 62 6d 70 | 2e 57 69 64 74 68 2d 31 | to Obmp|.Width-1|
|000001e0| 0d 0a 20 20 20 20 20 20 | 70 3d 47 65 74 50 69 78 |.. |p=GetPix|
|000001f0| 65 6c 56 61 6c 28 49 62 | 6d 70 2c 78 2c 79 29 0d |elVal(Ib|mp,x,y).|
|00000200| 0a 20 20 20 20 20 20 69 | 66 28 21 70 29 0d 0a 20 |. i|f(!p).. |
|00000210| 20 20 20 20 20 20 20 20 | 69 66 28 47 65 74 50 69 | |if(GetPi|
|00000220| 78 65 6c 56 61 6c 28 49 | 62 6d 70 2c 78 2b 34 2c |xelVal(I|bmp,x+4,|
|00000230| 79 2d 34 29 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |y-4)).. | |
|00000240| 20 20 20 20 53 65 74 50 | 69 78 65 6c 56 61 6c 28 | SetP|ixelVal(|
|00000250| 4f 62 6d 70 2c 78 2b 34 | 2c 79 2d 34 2c 31 29 0d |Obmp,x+4|,y-4,1).|
|00000260| 0a 20 20 20 20 20 20 20 | 20 20 65 6e 64 69 66 0d |. | endif.|
|00000270| 0a 20 20 20 20 20 20 65 | 6c 73 65 0d 0a 20 20 20 |. e|lse.. |
|00000280| 20 20 20 20 20 20 53 65 | 74 50 69 78 65 6c 56 61 | Se|tPixelVa|
|00000290| 6c 28 4f 62 6d 70 2c 78 | 2c 79 2c 32 29 0d 0a 20 |l(Obmp,x|,y,2).. |
|000002a0| 20 20 20 20 20 65 6e 64 | 69 66 0d 0a 20 20 20 4e | end|if.. N|
|000002b0| 65 78 74 20 78 0d 0a 4e | 65 78 74 20 79 0d 0a 0d |ext x..N|ext y...|
|000002c0| 0a 44 73 70 57 68 69 6c | 65 28 22 22 2c 30 29 0d |.DspWhil|e("",0).|
|000002d0| 0a 53 61 76 65 49 6d 61 | 67 65 28 4f 62 6d 70 2c |.SaveIma|ge(Obmp,|
|000002e0| 6f 75 74 46 69 6c 65 29 | 0d 0a 50 72 65 76 69 65 |outFile)|..Previe|
|000002f0| 77 28 4f 62 6d 70 2c 22 | 4f 75 74 70 75 74 22 2c |w(Obmp,"|Output",|
|00000300| 35 2c 35 2c 4f 62 6d 70 | 2e 57 69 64 74 68 2b 36 |5,5,Obmp|.Width+6|
|00000310| 2c 4f 62 6d 70 2e 48 65 | 69 67 68 74 2b 33 30 29 |,Obmp.He|ight+30)|
|00000320| 0d 0a 44 73 70 4d 65 73 | 28 22 4f 6b 22 29 |..DspMes|("Ok") |
+--------+-------------------------+-------------------------+--------+--------+
